﻿Imports System.Data.Linq.ForeignKeyReferenceAlreadyHasValueException
Imports System.Data.Linq
Imports System.IO

Partial Public Class encSocioEconomico
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Session.Add("miguel", 1)
            If Session("usuarioId") Is Nothing Then
                Response.Redirect("loguin.aspx")
            End If
            If Not Session("profesionId") Is Nothing Then
                If Permisos.Validar(Session("profesionId").ToString, 3) = False Then
                    Response.Redirect("Denied.aspx")
                End If
            Else
                Response.Redirect("Denied.aspx")
            End If
            If Not IsPostBack Then
                cargacombos()
                Dim pid = Request.QueryString.Get("participanteId")
                Consulta_Registro(pid, sender, e)
            End If
            lbprofesion.Text = Session("profesion").ToString()
            lbnombre.Text = Session("nombre").ToString()
            If Request.QueryString.Get("participanteId") <> "" Then
                Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "fnCargaEdicion();")
            End If
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Private Sub cargacombos()
        Try
            Dim docmd As New Sql_Server
            docmd.Conectar()
            docmd.Combo = dptoCod
            docmd.Listar_Combo("select * from departamentos order by departamento")
            docmd.Combo = dptoVive
            docmd.Listar_Combo("select * from departamentos order by departamento")
            docmd.Combo = paisCod
            docmd.Listar_Combo("select * from country order by nombre")
            docmd.Desconectar()
        Catch ex As Exception

        End Try
    End Sub

    Protected Sub dptoCod_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles dptoCod.SelectedIndexChanged
        Dim docmd As New Sql_Server
        docmd.Conectar()
        docmd.Combo = ciudadCod
        docmd.Listar_Combo("select * from ciudades where dptoCod=" & dptoCod.SelectedValue.Trim & " order by ciudad")
        docmd.Desconectar()
        docmd = Nothing
    End Sub

    Protected Sub dptoVive_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles dptoVive.SelectedIndexChanged
        Dim docmd As New Sql_Server
        docmd.Conectar()
        docmd.Combo = ciudadVive
        docmd.Listar_Combo("select * from ciudades where dptoCod=" & dptoVive.SelectedValue.Trim & " order by ciudad")
        docmd.Desconectar()
    End Sub

    Private Function Upload_Imagen(ByVal sRuta As String, ByVal campo As FileUpload) As Boolean
        Try
            campo.PostedFile.SaveAs(sRuta)
            Return True
        Catch ex As Exception
            Lbl_Error_Image.Text = ex.Message
            Return False
        End Try
    End Function

    Protected Sub btnGuardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGuardar.Click
        Session("miguel") = CInt(Session("miguel")) + 1
        Dim modelo As New DataClasses1DataContext()
        Dim cstype As Type = Page.GetType()
        Dim cs As ClientScriptManager = Page.ClientScript
        Dim sb As StringBuilder = New StringBuilder()
        Dim sRuta As String, iden As String = String.Format("{0:ddMMyyhhmmss}", Now) & "_"
        If Page.IsValid = True Then
            If IsNumeric(participanteId.Value) Then
                Dim participante = (From p In modelo.participantes _
                                    Join s In modelo.socioeconomicos On p.participanteId Equals s.participanteId _
                                    Join sa In modelo.saluds On p.participanteId Equals sa.participantesId _
                                    Where p.participanteId.Equals(participanteId.Value.Trim) _
                                    Select p, s, sa).Single()
                'upload image de perfil
                If Fu_Perfil.FileName <> "" Then
                    sRuta = Server.MapPath("~/images_perfil/") & iden & Fu_Perfil.FileName
                    If File.Exists(sRuta) Then
                        File.Delete(sRuta)
                    End If
                    'subir imagen actual
                    If Upload_Imagen(sRuta, Fu_Perfil) Then
                        'eliminar imagen anterior
                        If Not IsNothing(participante.p.foto_perfil) Then
                            If File.Exists(Server.MapPath("~/images_perfil/") & participante.p.foto_perfil) Then
                                File.Delete(Server.MapPath("~/images_perfil/") & participante.p.foto_perfil)
                            End If
                        End If
                        participante.p.foto_perfil = iden & Fu_Perfil.FileName
                    End If
                End If
                'upload image de cedula
                If cedulaImg.FileName <> "" Then
                    sRuta = Server.MapPath("~/images_perfil/") & iden & cedulaImg.FileName
                    If File.Exists(sRuta) Then
                        File.Delete(sRuta)
                    End If
                    'subir imagen actual
                    If Upload_Imagen(sRuta, cedulaImg) Then
                        'eliminar imagen anterior
                        If Not IsNothing(participante.p.cedulaImg) Then
                            If File.Exists(Server.MapPath("~/images_perfil/") & participante.p.cedulaImg) Then
                                File.Delete(Server.MapPath("~/images_perfil/") & participante.p.cedulaImg)
                            End If
                        End If
                        participante.p.cedulaImg = iden & cedulaImg.FileName
                    End If
                End If
                'upload image del carnet sisben
                If carnetSisImg.FileName <> "" Then
                    sRuta = Server.MapPath("~/images_perfil/") & iden & carnetSisImg.FileName
                    If File.Exists(sRuta) Then
                        File.Delete(sRuta)
                    End If
                    'subir imagen actual
                    If Upload_Imagen(sRuta, carnetSisImg) Then
                        'eliminar imagen anterior
                        If Not IsNothing(participante.p.sisbenImg) Then
                            If File.Exists(Server.MapPath("~/images_perfil/") & participante.p.sisbenImg) Then
                                File.Delete(Server.MapPath("~/images_perfil/") & participante.p.sisbenImg)
                            End If
                        End If
                        participante.p.sisbenImg = iden & carnetSisImg.FileName
                    End If
                End If
                participante.p.primerNombre = primerNombre.Text.Trim
                participante.p.segundoNombre = segundoNombre.Text.Trim
                participante.p.primerApellido = primerApellido.Text.Trim
                participante.p.segundoApellido = segundoApellido.Text.Trim
                participante.p.documento = documento.Text.Trim
                participante.p.tipoDocumento = tipoDocumento.SelectedValue.Trim
                participante.p.actDocumento = actDocumento.SelectedValue.Trim
                participante.p.sexo = sexo.SelectedValue.Trim
                participante.p.fechaNacimiento = fechaNacimiento.Text.Trim
                participante.p.dptoCod = dptoCod.SelectedValue.Trim
                participante.p.ciudadCod = ciudadCod.SelectedValue.Trim
                participante.p.paisCod = paisCod.SelectedValue.Trim
                participante.p.tieneCelular = tieneCelular.Text.Trim
                participante.p.celular = celular.Text.Trim
                participante.p.atendidoCentro = atendidoCentro.SelectedValue.Trim
                participante.p.centroSalud = centroSalud.Text.Trim
                participante.p.vivioEnCampo = vivioEnCampo.SelectedValue.Trim
                If campoaños.Text.Trim = "" Then
                    participante.p.campoaños = 0
                Else
                    participante.p.campoaños = campoaños.Text
                End If
                participante.p.vive = vive.Text.Trim
                participante.p.estadoCivil = estadoCivil.SelectedValue.Trim
                participante.p.viveEnpareja = viveEnpareja.SelectedValue.Trim
                participante.p.haceCincoviviaigual = haceCincoviviaigual.SelectedValue.Trim
                If hijosVivosNacidos.Text.Trim = "" Then
                    participante.p.hijosVivosNacidos = 0
                Else
                    participante.p.hijosVivosNacidos = hijosVivosNacidos.Text
                End If
                If hijosVivos.Text.Trim = "" Then
                    participante.p.hijosVivos = 0
                Else
                    participante.p.hijosVivos = hijosVivos.Text.Trim
                End If
                participante.p.sabeLeer = sabeLeer.SelectedValue.Trim
                'Actualiza Informacion socioeconomica
                participante.s.asisteEscuela = asisteEscuela.SelectedValue.Trim
                If asisteEscuela.SelectedValue.Trim = "Si" And Not noRecUltCurso.Checked Then
                    If gradoPrimaria.SelectedValue.Trim <> "Seleccione" Then
                        participante.s.gradoPrimaria = gradoPrimaria.SelectedValue.Trim
                    End If
                    If gradoSecundaria.SelectedValue.Trim <> "Seleccione" Then
                        participante.s.gradoSecundaria = gradoSecundaria.SelectedValue.Trim
                    End If
                    If gradoTecnico.SelectedValue.Trim <> "Seleccione" Then
                        participante.s.gradoTecnico = gradoTecnico.SelectedValue.Trim
                    End If
                    If gradoUniversidad.SelectedValue.Trim <> "Seleccione" Then
                        participante.s.gradoUniversidad = gradoUniversidad.SelectedValue.Trim
                    End If
                End If
                participante.s.estudiaActualPreg = estudiaActualPreg.SelectedValue.Trim
                participante.s.estudioRealiza = estudioRealiza.Text.Trim
                participante.s.interesaEstudio = interesaEstudio.Text.Trim
                participante.s.estudioInteresa = estudioInteresa.Text.Trim
                participante.s.hayComputadores = hayComputadores.SelectedValue.Trim
                participante.s.sabeUsarComputador = sabeUsarComputador.SelectedValue.Trim
                participante.s.interesaComputador = interesaComputador.SelectedValue.Trim
                participante.s.dptoVive = dptoVive.SelectedValue.Trim
                participante.s.ciudadVive = ciudadVive.SelectedValue.Trim
                participante.s.zona = zona.SelectedValue.Trim
                participante.s.barrio = barrio.Text.Trim
                participante.s.estrato = estrato.SelectedValue.Trim
                If servicioAlcantarillado.Checked Then
                    participante.s.servicioAlcantarillado = "Si"
                Else
                    participante.s.servicioAlcantarillado = "No"
                End If
                If servicioAcueducto.Checked Then
                    participante.s.servicioAcueducto = "Si"
                Else
                    participante.s.servicioAcueducto = "No"
                End If
                If servicioTelefono.Checked Then
                Else
                    participante.s.servicioTelefono = "No"
                End If
                If servicioElectricidad.Checked Then
                    participante.s.servicioElectricidad = "Si"
                Else
                    participante.s.servicioElectricidad = "No"
                End If
                If servicioGas.Checked Then
                    participante.s.servicioGas = "Si"
                Else
                    participante.s.servicioGas = "No"
                End If
                participante.s.actualVive = actualVive.SelectedValue.Trim
                participante.s.condicionVivie = condicionVivie.SelectedValue.Trim
                participante.s.direccion = direccion.Text.Trim
                'Actualiza Información de Salud
                participante.sa.estaSisben = estaSisben.SelectedValue.Trim
                participante.sa.numeroSisben = numeroSisben.Text.Trim
                participante.sa.estaSalud = estaSalud.SelectedValue.Trim
                participante.sa.afiliacion = tipAfiliacion.SelectedValue.Trim
                participante.sa.entidad = entidad.Text.Trim
                participante.sa.atencionUltimoano = atencionUltimoano.SelectedValue.Trim
                participante.sa.ordenanAyudas = ordenanAyudas.SelectedValue.Trim
                participante.sa.descOrdenAyudas = descOrdenAyudas.Text.Trim
                participante.sa.usaAyudas = usaAyudas.SelectedValue.Trim
                participante.sa.descUsaAyudas = descUsaAyudas.Text.Trim
                participante.sa.creeAyudas = creeAyudas.SelectedValue.Trim
                participante.sa.descCreeAyudas = descCreeAyudas.Text.Trim
                participante.sa.dondeAsisEnfermo = dondeAsisEnfermo.SelectedValue.Trim
                If porqueNoFue.SelectedValue.Trim = "Otro" Then
                    participante.sa.porqueNoFue = porqueNoFue2.Text.Trim
                Else
                    participante.sa.porqueNoFue = porqueNoFue.SelectedValue.Trim
                End If
                participante.sa.requiereOtraPersona = requiereOtraPersona.SelectedValue.Trim
                participante.sa.personaAyuda = personaAyuda.SelectedValue.Trim
                participante.sa.sexoPersonaAyuda = sexoPersonaAyuda.SelectedValue.Trim
                modelo.SubmitChanges()
                'Termina Actualización
                sb.AppendLine("alert('Se actualizo correctamente el registro');")
                sb.AppendLine("window.location = 'encSocioEconomico.aspx'")
                sb.AppendLine("$('#aspnetForm').trigger('reset');")
                cs.RegisterStartupScript(cstype, "alert", sb.ToString(), True)
            Else
                Dim ClParticipantes As New participante
                'upload image de perfil
                If Fu_Perfil.FileName <> "" Then
                    sRuta = Server.MapPath("~/images_perfil/") & iden & Fu_Perfil.FileName
                    If File.Exists(sRuta) Then
                        File.Delete(sRuta)
                    End If
                    'subir imagen actual
                    If Upload_Imagen(sRuta, Fu_Perfil) Then
                        ClParticipantes.foto_perfil = iden & Fu_Perfil.FileName
                    End If
                End If
                'upload image de cedula
                If cedulaImg.FileName <> "" Then
                    sRuta = Server.MapPath("~/images_perfil/") & iden & cedulaImg.FileName
                    If File.Exists(sRuta) Then
                        File.Delete(sRuta)
                    End If
                    'subir imagen actual
                    If Upload_Imagen(sRuta, cedulaImg) Then
                        ClParticipantes.cedulaImg = iden & cedulaImg.FileName
                    End If
                End If
                'upload image del carnet sisben
                If carnetSisImg.FileName <> "" Then
                    sRuta = Server.MapPath("~/images_perfil/") & iden & carnetSisImg.FileName
                    If File.Exists(sRuta) Then
                        File.Delete(sRuta)
                    End If
                    'subir imagen actual
                    If Upload_Imagen(sRuta, carnetSisImg) Then
                        ClParticipantes.sisbenImg = iden & carnetSisImg.FileName
                    End If
                End If
                ClParticipantes.fechaCreo = DateTime.Now
                ClParticipantes.primerNombre = primerNombre.Text.Trim
                ClParticipantes.segundoNombre = segundoNombre.Text.Trim
                ClParticipantes.primerApellido = primerApellido.Text.Trim
                ClParticipantes.segundoApellido = segundoApellido.Text.Trim
                ClParticipantes.documento = documento.Text.Trim
                ClParticipantes.tipoDocumento = tipoDocumento.SelectedValue.Trim
                ClParticipantes.actDocumento = actDocumento.SelectedValue.Trim
                ClParticipantes.sexo = sexo.SelectedValue.Trim
                ClParticipantes.fechaNacimiento = fechaNacimiento.Text.Trim
                ClParticipantes.dptoCod = dptoCod.SelectedValue.Trim
                ClParticipantes.ciudadCod = ciudadCod.SelectedValue.Trim
                ClParticipantes.paisCod = paisCod.SelectedValue.Trim
                ClParticipantes.tieneCelular = tieneCelular.Text.Trim
                ClParticipantes.celular = celular.Text.Trim
                ClParticipantes.atendidoCentro = atendidoCentro.SelectedValue.Trim
                ClParticipantes.centroSalud = centroSalud.Text.Trim
                ClParticipantes.vivioEnCampo = vivioEnCampo.SelectedValue.Trim
                If campoaños.Text.Trim = "" Then
                    ClParticipantes.campoaños = 0
                Else
                    ClParticipantes.campoaños = campoaños.Text
                End If
                ClParticipantes.vive = vive.Text.Trim
                ClParticipantes.estadoCivil = estadoCivil.SelectedValue.Trim
                ClParticipantes.viveEnpareja = viveEnpareja.SelectedValue.Trim
                ClParticipantes.haceCincoviviaigual = haceCincoviviaigual.SelectedValue.Trim
                If hijosVivosNacidos.Text.Trim = "" Then
                    ClParticipantes.hijosVivosNacidos = 0
                Else
                    ClParticipantes.hijosVivosNacidos = hijosVivosNacidos.Text
                End If
                If hijosVivos.Text.Trim = "" Then
                    ClParticipantes.hijosVivos = 0
                Else
                    ClParticipantes.hijosVivos = hijosVivos.Text.Trim
                End If
                ClParticipantes.sabeLeer = sabeLeer.SelectedValue.Trim
                'Relaciona el registro socioeconomico
                Dim Clsocioeconomico As New socioeconomico
                Clsocioeconomico.asisteEscuela = asisteEscuela.SelectedValue.Trim
                If asisteEscuela.SelectedValue.Trim = "Si" And Not noRecUltCurso.Checked Then
                    If gradoPrimaria.SelectedValue.Trim <> "Seleccione" Then
                        Clsocioeconomico.gradoPrimaria = gradoPrimaria.SelectedValue.Trim
                    End If
                    If gradoSecundaria.SelectedValue.Trim <> "Seleccione" Then
                        Clsocioeconomico.gradoSecundaria = gradoSecundaria.SelectedValue.Trim
                    End If
                    If gradoTecnico.SelectedValue.Trim <> "Seleccione" Then
                        Clsocioeconomico.gradoTecnico = gradoTecnico.SelectedValue.Trim
                    End If
                    If gradoUniversidad.SelectedValue.Trim <> "Seleccione" Then
                        Clsocioeconomico.gradoUniversidad = gradoUniversidad.SelectedValue.Trim
                    End If
                End If
                Clsocioeconomico.usuario_id = Session("usuarioId").ToString
                Clsocioeconomico.estudiaActualPreg = estudiaActualPreg.SelectedValue.Trim
                Clsocioeconomico.estudioRealiza = estudioRealiza.Text.Trim
                Clsocioeconomico.interesaEstudio = interesaEstudio.Text.Trim
                Clsocioeconomico.estudioInteresa = estudioInteresa.Text.Trim
                Clsocioeconomico.hayComputadores = hayComputadores.SelectedValue.Trim
                Clsocioeconomico.sabeUsarComputador = sabeUsarComputador.SelectedValue.Trim
                Clsocioeconomico.interesaComputador = interesaComputador.SelectedValue.Trim
                Clsocioeconomico.dptoVive = dptoVive.SelectedValue.Trim
                Clsocioeconomico.ciudadVive = ciudadVive.SelectedValue.Trim
                Clsocioeconomico.zona = zona.SelectedValue.Trim
                Clsocioeconomico.barrio = barrio.Text.Trim
                Clsocioeconomico.estrato = estrato.SelectedValue.Trim
                If servicioAlcantarillado.Checked Then
                    Clsocioeconomico.servicioAlcantarillado = "Si"
                Else
                    Clsocioeconomico.servicioAlcantarillado = "No"
                End If
                If servicioAcueducto.Checked Then
                    Clsocioeconomico.servicioAcueducto = "Si"
                Else
                    Clsocioeconomico.servicioAcueducto = "No"
                End If
                If servicioTelefono.Checked Then
                Else
                    Clsocioeconomico.servicioTelefono = "No"
                End If
                If servicioElectricidad.Checked Then
                    Clsocioeconomico.servicioElectricidad = "Si"
                Else
                    Clsocioeconomico.servicioElectricidad = "No"
                End If
                If servicioGas.Checked Then
                    Clsocioeconomico.servicioGas = "Si"
                Else
                    Clsocioeconomico.servicioGas = "No"
                End If
                Clsocioeconomico.actualVive = actualVive.SelectedValue.Trim
                Clsocioeconomico.condicionVivie = condicionVivie.SelectedValue.Trim
                Clsocioeconomico.fechaCreo = DateTime.Now
                Clsocioeconomico.direccion = direccion.Text.Trim
                'Registro de salud del participante
                Dim Clsalud As New salud
                Clsalud.fechaCreo = DateTime.Now
                Clsalud.estaSisben = estaSisben.SelectedValue.Trim
                Clsalud.numeroSisben = numeroSisben.Text.Trim
                Clsalud.estaSalud = estaSalud.SelectedValue.Trim
                Clsalud.afiliacion = tipAfiliacion.SelectedValue.Trim
                Clsalud.entidad = entidad.Text.Trim
                Clsalud.atencionUltimoano = atencionUltimoano.SelectedValue.Trim
                Clsalud.ordenanAyudas = ordenanAyudas.SelectedValue.Trim
                Clsalud.descOrdenAyudas = descOrdenAyudas.Text.Trim
                Clsalud.usaAyudas = usaAyudas.SelectedValue.Trim
                Clsalud.descUsaAyudas = descUsaAyudas.Text.Trim
                Clsalud.creeAyudas = creeAyudas.SelectedValue.Trim
                Clsalud.descCreeAyudas = descCreeAyudas.Text.Trim
                Clsalud.dondeAsisEnfermo = dondeAsisEnfermo.SelectedValue.Trim
                If porqueNoFue.SelectedValue.Trim = "Otro" Then
                    Clsalud.porqueNoFue = porqueNoFue2.Text.Trim
                Else
                    Clsalud.porqueNoFue = porqueNoFue.SelectedValue.Trim
                End If
                Clsalud.requiereOtraPersona = requiereOtraPersona.SelectedValue.Trim
                Clsalud.personaAyuda = personaAyuda.SelectedValue.Trim
                Clsalud.sexoPersonaAyuda = sexoPersonaAyuda.SelectedValue.Trim
                ClParticipantes.socioeconomicos.Add(Clsocioeconomico)
                ClParticipantes.saluds.Add(Clsalud)
                modelo.participantes.InsertOnSubmit(ClParticipantes)
                Try
                    modelo.SubmitChanges()
                Catch ex As LinqDataSourceValidationException

                    sb.AppendLine("alert('" + ex.Message + "');")
                    cs.RegisterStartupScript(cstype, "alert", sb.ToString(), True)
                Catch ex As ChangeConflictException
                    sb.AppendLine("alert('" + ex.Message + "');")
                    cs.RegisterStartupScript(cstype, "alert", sb.ToString(), True)

                Catch ex As Exception
                    sb.AppendLine("alert('" + ex.Message + "');")
                    cs.RegisterStartupScript(cstype, "alert", sb.ToString(), True)
                End Try

                sb.AppendLine("alert('Se ha guardado correctamente el registro');")
                sb.AppendLine("window.location = 'encSocioEconomico.aspx'")
                sb.AppendLine("$('#aspnetForm').trigger('reset');")
                cs.RegisterStartupScript(cstype, "alert", sb.ToString(), True)
            End If
        End If
    End Sub

    Public Sub Consulta_Registro(ByVal Id As Integer, ByVal sender As Object, ByVal e As EventArgs)
        On Error GoTo errores
        Dim Docmd As New DoCmd, reader As System.Data.SqlClient.SqlDataReader
        Dim Qry As String
        Dim camp As Integer
        Qry = "SELECT * FROM participantes AS par INNER JOIN socioeconomico AS soci ON soci.participanteId = par.participanteId  INNER JOIN salud AS sal ON sal.participantesId = par.participanteId WHERE par.participanteId = " & Id
        Docmd.Conectar()
        reader = Docmd.Read_SQL(Qry)
        While reader.Read
            camp = reader.FieldCount
            For i = 2 To camp - 1
                On Error Resume Next

                Select Case reader.GetName(i)
                    Case "foto_perfil"
                        If reader(i).ToString() <> "" Then
                            Ima_perfil.Visible = True
                            Ima_perfil.ImageUrl = "~/images_perfil/" & reader(i).ToString()
                        Else
                            Ima_perfil.Visible = False
                        End If
                    Case "cedulaImg"
                        If reader(i).ToString() <> "" Then
                            LbCedula.Visible = True
                            aCedulaImg.Visible = True
                            aCedulaImg.NavigateUrl = "~/images_perfil/" & reader(i).ToString()
                        Else
                            LbCedula.Visible = False
                            aCedulaImg.Visible = False
                        End If
                    Case "sisbenImg"
                        If reader(i).ToString() <> "" Then
                            lbSisben.Visible = True
                            aSisbenImg.Visible = True
                            aSisbenImg.NavigateUrl = "~/images_perfil/" & reader(i).ToString()
                        Else
                            lbSisben.Visible = False
                            aSisbenImg.Visible = False
                        End If
                    Case Else
                        If Page.Form.FindControl(reader.GetName(i)).ID <> "" Then
                            Asigna_control(Page.Form.FindControl(reader.GetName(i)), reader(i).ToString().Trim)
                            If i = 23 Then
                                dptoCod_SelectedIndexChanged(sender, e)
                            End If
                            If i = 54 Then
                                dptoVive_SelectedIndexChanged(sender, e)
                            End If
                        End If
                End Select
            Next
        End While
        reader.Close()
        Docmd.Desconectar()
        Exit Sub
errores:
        Response.Write(Err.Description)
        'LblMensaje.Text = ex.Message
        'lbl_mensaje2.Text = ex.Message

    End Sub

    Private Sub Asigna_control(ByVal Objeto As Object, ByRef valor As String)
        Select Case Objeto.GetType.Name
            Case "HiddenField"
                If valor <> "" Then
                    Objeto.value = valor
                Else
                    Objeto.value = ""
                End If
            Case "TextBox"
                If valor <> "" Then
                    Objeto.text = valor
                Else
                    Objeto.text = ""
                End If
            Case "CheckBox"
                If valor = "Si" Then
                    Objeto.Checked = True
                Else
                    Objeto.Checked = False
                End If
            Case "RadioButtonList"
                If valor <> "" Then
                    If valor = "True" Then
                        Objeto.SelectedValue = 1
                    ElseIf valor = "False" Then
                        Objeto.SelectedValue = 0
                    Else
                        Objeto.SelectedValue = valor
                    End If
                Else
                    Objeto.SelectedIndex = -1
                End If
            Case "DropDownList"
                If valor <> "" Then
                    Objeto.SelectedValue = Objeto.Items.FindByValue(valor.Trim).Value
                Else
                    Objeto.SelectedIndex = -1
                End If
        End Select
    End Sub

    Protected Sub btnConsulta_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnConsulta.Click
        Dim where As String
        where = " 1 = 1"
        If cbotipDocumento.SelectedValue.Trim <> "-1" Then
            where = where + " and tipoDocumento = '" + cbotipDocumento.SelectedValue.Trim + "'"
        End If
        If txtDocumento.Text.Trim <> "" Then
            where = where + " and documento = '" + txtDocumento.Text.Trim + "'"
        End If
        If conPrinombre.Text.Trim <> "" Then
            where = where + " and primerNombre like '%" + conPrinombre.Text.Trim + "%'"
        End If
        If conSegnombre.Text.Trim <> "" Then
            where = where + " and segundoNombre like '%" + conSegnombre.Text.Trim + "%'"
        End If
        If conPriApe.Text.Trim <> "" Then
            where = where + " and primerApellido like '%" + conPriApe.Text.Trim + "%'"
        End If
        If conSegApe.Text.Trim <> "" Then
            where = where + " and segundoApellido like '%" + conSegApe.Text.Trim + "%'"
        End If
        SqlDataSource1.FilterExpression = where
        SqlDataSource1.DataBind()
    End Sub

    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged
        Try
            Dim row As GridViewRow = GridView1.SelectedRow
            Dim id As Label = row.FindControl("idParticipante")
            Response.Redirect("encSocioEconomico.aspx?participanteId=" & id.Text.Trim)
        Catch ex As Exception
            'Label1.Text = ex.Message
        End Try
    End Sub
    Protected Sub btnBusRapida_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBusRapida.Click
        SqlDataSource1.FilterExpression = geriatriaClases.fnbusquedaRapida(txtBusquedaRapida.Text.ToString())
        SqlDataSource1.DataBind()
    End Sub
End Class